#
#this is a comment

rawdata <- c(55,56,98,100,15,12,33,45,32,67,82,19,25)

#compute the max
max(rawdata)

#compute the min
min(rawdata)

#report summary stats
summary(rawdata)

#plot raw data
plot(rawdata, type="b", xlab="Time in Seconds", ylab="Idle Level", col="blue", pch=21)
abline(h=mean(rawdata), v=0, col="red")
abline(h=mean(rawdata), v=0, col="magenta")
abline(h=min(rawdata), v=0, col="green")

